<!--#include file="rent_inc.asp" -->
<!--#include virtual="/common/Cls_Page.asp" -->
<%
Dim city,avg_price,room_status
If Request.ServerVariables ("Request_Method")="POST" Then
	city		= Reform("city") 
	avg_price	= Reform("avg_price")
	room_status	= Reform("room_status")
Else
	city		= Requery("city") 
	avg_price	= Requery("avg_price")
	room_status	= Requery("room_status")
End If 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="963123.com" />
<meta name="Copyright" content="Copyright (c) 2010 963123.com" />
<meta name="Description" content="海南家政信息服务平台" />
<meta name="Keywords" content="海南家政网,家政,家教,家庭服务,保洁,保姆,护理,钟点工,海南旅游,海南美食,生活,生活服务" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>海南房产_海南租房_海南楼盘_租房_售房 - 海南家政服务热线963123</title>
<link href="/skin/lafot/houseview.css" rel="stylesheet" type="text/css" media="screen" />
<script language="javascript" src="javascript/rent.js"></script>
</head>
<body>
<div id="header">
  <div class="m top">
    <h1><a href="/" class="logo" title="海南家政信息服务平台,咨询热线：963123"><span>963123.com</span></a></h1>
    <h2 title="海南家政网：宝岛居家旅行全方位的生活指南,真诚服务，方便到家！">宝岛旅游居家全方位的生活指南！</h2>
    <div class="top_m">
    <p class="ireg"><a href="/Member/">登录</a> | <a href="/Member/user_reg.asp">注册</a></p>
      <div class="i_nav">
        <ul>
            <li ><a href="/">首页</a></li>
            <li><a href="/News/">资讯</a></li>
            <li><a href="/Family/">家政</a></li>
            <li class="selected"><a href="/Rent/">房产</a></li>
            <li ><a href="/Foods/">美食</a></li>
            <li ><a href="/Sale/">打折</a></li>
            <li ><a href="/HR/">人才</a></li>
            <li ><a href="/ask/">问答</a></li>
        </ul>
      </div>
      
    </div>
    
  </div>
</div>
<!--E:Header-->
<div class="m">
	<div class="rents" style="height:198px;"></div>
</div>
<div id="menu">
	<div class="m">
        <div class="rentnav">
            <ul>
				<% Call  sub_menu("") %>
          </ul>

        </div>
    </div>
</div>
<!--E:Menu-->
<div class="m">
	<div class="union_hot" id="hn_foods_one">您当前的位置： <a href="/Rent/">房产</a> > 楼盘在线</div>
</div>
<div id="content">
    <div class="m">
    <div class="un-list-tag">
       <form id="form_search" name="form_search" action="Realestate_List.asp" method="post">
        <ul>
            <li><label>城市：</label><% Call City_List(city)%></li>
            <li><label>状态：</label><% Call room_status_List(room_status)%></li>
            <li><label>均价：</label>
			<% Call avg_price_List(avg_price)%></li>
        </ul>
		<input name="city" type="hidden" value="<%=city%>" />
		<input name="avg_price" type="hidden" value="<%=avg_price%>" />
		<input name="room_status" type="hidden" value="<%=room_status%>" />

        </form>	
    </div>
	<!--E:UN-LIST-TAG-->
   

        	<div class="un-list">
		<%	

			Dim Ors		
			Set Ors = New Class_Page

			Sql = " 1=1 "

			Sql = EqualSql("RI_City",city,Sql)
			'Sql = EqualSql("RI_Avg_Price",avg_price,Sql)
			Sql = EqualSql("RI_Status",room_status,Sql)
			Select Case CStr(avg_price) 
				   
				   Case "1"  sql = Betweensql("RI_Avg_Price","min",3000,sql)
				   Case "2"  sql = Betweensql("RI_Avg_Price",3000,5000,sql)
				   Case "3"  sql = Betweensql("RI_Avg_Price",5000,8000,sql)
				   Case "4"  sql = Betweensql("RI_Avg_Price",8000,12000,sql)						   					 
				   Case "5"  sql = Betweensql("RI_Avg_Price",12000,20000,sql)						   					   					     
				   Case "6"  sql = Betweensql("RI_Avg_Price",20000,"max",sql)					   					     					   					   

			End Select


			'Table 查询的表或是视图
			Ors.Table="Realestate_Info"

			'Field SQL语句SELECT数据库的字段
			Ors.Field="RI_ID,RI_Pic,RI_Name,RI_Avg_Price,RI_Open_Date"
			'Pkey主键
			Ors.Pkey="RI_ID"

			'OrderBy 排序字段


			Ors.OrderBy="Update_Date DESC"

			Ors.PageSize=12 '每页记录数

			'Condition 使用的条件，Tt_Title_Sql.....等等
			Ors.Condition=sql

			'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
			Ors.PostString = "city|AVG_price|room_status"

			RecCount = Ors.RecCount() '记录总数
			Array_List = Ors.ResultSet() '返回ResultSet

			If RecCount>0 Then
			%>
        	<h2>找到<%=RecCount%>条房源</h2>
            <div class="hruninos">
            	<ul>
					<% 
					For i=0 To UBound(Array_List,2)
						RI_ID				= Array_List(0,i)
						RI_Pic		= Array_List(1,i)
						RI_Name		= Array_List(2,i) 
						RI_Avg_Price		= Array_List(3,i)
						RI_Open_Date	= Array_List(4,i)
						detail_url		= "Realestate_Show.asp?id="&RI_ID
					%>
                	<li>
                    	<p class="unimg"><a href="<%=detail_url%>"><img src="<%=RI_Pic%>" width=116 height=64/></a></p>
                        <div class="uninfo">
                        <h3><%=RI_Name%></h3>
                        <p>均价：<%=RI_Avg_Price%>/㎡</p>
                        <p>开盘：<%=RI_Open_Date%></p>
                        </div>
                    </li>
					<% Next %>

                   </ul>
               </div>
			<% If Ors.PageCount()>1 Then %>
            <div class="pages tc">
            <% Call Ors.ShowPage4() %>
            </div>
			<% End If %>
			<% End If %>
            <!-- S:PAGES -->

    </div>
         <!--E:un-list-->
    </div>
</div>
<!--E:Content-->

<div id="footer">
  <div class="m tc">
    <p class="home_bottom"><a href="http://www.963123.com" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.963123.com');return(false);" style="behavior: url(#default#homepage)">设为首页</a><span class="i">|</span><a href="javascript:window.external.AddFavorite('http://www.963123.com','海南家政网')" target="_self">加入收藏</a><span class="i">|</span><a href="#">网站地图</a><span class="i">|</span><a href="#">关于我们</a><span class="i">|</span><a href="#">人才招募</a><span class="i">|</span><a href="#">加盟流程</a><span class="i">|</span><a href="#">举报投诉</a><span class="i">|</span><a href="#">网站帮助</a><span class="i">|</span><a href="#">留言反馈</a></p>
    <p class="copy">© 2010 <a href="/" title="海南家政信息服务平台"><strong>963123.com</strong></a> All Right Reserved. <a style="font-style:normal" href="http://www.miibeian.gov.cn/" target="_blank">琼ICP备10001143号</a> <a title="真诚服务，方便到家！" style="cursor:help;" ><em>真诚服务，方便到家！</em></a></p>
    <p>网站访问量：562224</p>
  </div>
</div>

</body>
</html>
<%

Sub City_List(City_Value)
	If City_Value="" Or IsNumeric(City_Value)=False Then 
		Response.Write "<a class=""active"">不限</a> "
		area=""
	Else
		Response.Write "<a onclick=""Realestate_Search('','1')"">不限</a>"			
	End If 
	City_List_Array = GetRsRows("SELECT ca_name,ca_name FROM City_Area WHERE parent_id=0 ORDER BY CA_Order ASC")
	If IsArray(City_List_Array) Then 
	For i=0  To UBound(City_List_Array,2)
		If CStr(City_List_Array(0,i))=CStr(City_Value) Then 
			Response.Write "<a class=""active"">"&City_List_Array(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Realestate_Search('"&City_List_Array(0,i)&"','1')"">"&City_List_Array(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
Sub avg_price_List(avg_price_value)

	Price_value	 = ",1,2,3,4,5,6"
	Price_Option = "不限,3000元以内,3000-5000元,5000-8000元,8000-12000元,12000--20000元,20000元以上"

	Price_value_Array  = Split(Price_value,",")
	Price_Option_Array = Split(Price_Option,",")

	For i=0  To UBound(Price_value_Array)
		If Price_value_Array(i)=avg_price_value Then 
			
			Response.Write "<a href=""#"" class=""active"">"&Price_Option_Array(i)&"</a> "
		Else
			Response.Write "<a href=""#""  onclick=""Realestate_Search('"&Price_value_Array(i)&"','2')"">"&Price_Option_Array(i)&"</a> "			
		End If
	Next
End Sub


Sub room_status_List(room_value)

	room_status_value	 = ",期房,准现房,现房,成熟小区"
	room_status_Option = "不限,期房,准现房,现房,成熟小区"
	
	room_status_value_Array  = Split(room_status_value,",")
	room_status_Option_Array = Split(room_status_Option,",")

	For i=0  To UBound(room_status_value_Array)
		If room_status_value_Array(i)=room_value Then 
			
			Response.Write "<a href=""#"" class=""active"">"&room_status_Option_Array(i)&"</a> "
		Else
			Response.Write "<a href=""#""  onclick=""Realestate_Search('"&room_status_value_Array(i)&"','3')"">"&room_status_Option_Array(i)&"</a> "			
		End If
	Next

End Sub 



%>